home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / kasim / 17 / setup.exe / probe.pl < prev    next >
Encoding:
Perl Script  |  2000-04-05  |  1.2 KB  |  56 lines
  1. #!/usr/bin/perl
  2. #!/usr/local/bin/perl
  3. #!/usr/bin/perl5
  4. #!/usr/local/bin/perl5
  5.  
  6. # THIS PROGRAM WILL CAPTURE THE PATH INFORMATION AS IT SHOULD
  7. # BE CONFIGURED IN YOUR CGI SCRIPT.
  8.  
  9. print "Content-type: text/html\n\n";
  10. print "<BODY BGCOLOR=WHITE>\n";
  11.  
  12. # DETERMINE OPERATING SYSTEM
  13. print qq(Your server operating system is <B>$^O</B> <P>\n);
  14.  
  15. my $isUnix,$path;
  16.  
  17. if ($^O=~/win/i) {
  18.   $isUnix=0;
  19. } else {
  20.   $isUnix=1;
  21. }
  22.  
  23. print qq(The path to the current script is:<B> $0 </B> <P>\n);
  24.  
  25. print qq(The server is running: <B>$ENV{'SERVER_SOFTWARE'} </B><P>\n);
  26.  
  27. # GET PATH TO PERL
  28. if ($isUnix) {
  29.  
  30. my @possiblePaths=('/usr/bin/perl','/usr/local/bin/perl','/usr/bin/perl5','/usr/local/bin/perl5');
  31. foreach (@possiblePaths) {
  32.   my $testpath=`$_ -v`;
  33.   if ($testpath =~ /version ([5-9])/i) {
  34.     print "\nPerl $1 has been detected at: <B>$_</B> <P>\n";
  35.     my $perlpath=$_;
  36.     last;
  37.   }
  38. }
  39. }
  40.  
  41. my $username;
  42. if ($isUnix) {
  43.   $username=`whoami`;
  44.   print qq(The script runs under this username: <B>$username</B><P>\n);
  45. }
  46.  
  47. if (length($ENV{DOCUMENT_ROOT})) {
  48.   print qq(The path to the top web pages (DOCUMENT_ROOT) is: <B>$ENV{DOCUMENT_ROOT}</B><P>\n);
  49. }
  50.  
  51. print qq(<B>Environment Variables</B><BR>\n);
  52. foreach (sort keys %ENV) {print "$_ = $ENV{$_}<BR>\n"}
  53.  
  54.   
  55.   
  56.